home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / FORTRAN / 3017.ZIP / TUDOS.FOR < prev    next >
Text File  |  1988-09-22  |  405b  |  20 lines
  1.       PROGRAM TUDOS
  2. C
  3. C     TEST PROGRAM FOR UDOSIF
  4. C     OLYMPIC SOFTWARE  --  9/22/88
  5. C
  6. C     JUST INPUT THE PARAMETERS, AND WATCH WHAT HAPPENS
  7. C
  8.       EXTERNAL UDOSIF
  9.       INTEGER*2 IARRAY(14)
  10. C
  11.       WRITE(*,20)
  12.  20   FORMAT(' IARRAY=? ',$)
  13.       READ(*,*)(IARRAY(I),I=1,14)
  14.       CALL UDOSIF(IARRAY)
  15.       WRITE(*,12)(IARRAY(I),I=1,14)
  16.  12   FORMAT(/,15I4)
  17.       STOP
  18.       END
  19.  
  20.